home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / pibasy47.zip / GLOBTYPE.GLO < prev    next >
Text File  |  1987-11-11  |  511b  |  24 lines
  1.                         (* Global Declarations *)
  2. CONST
  3.  
  4.                    (* 8086/8088 hardware flags *)
  5.  
  6.    Carry_Flag     = 1;
  7.    Parity_Flag    = 4;
  8.    Aux_Carry_Flag = 16;
  9.    Zero_Flag      = 64;
  10.    Sign_Flag      = 128;
  11.  
  12. TYPE
  13.  
  14.    AnyStr   = STRING[255]  (* Matches any string for parameter passing *);
  15.  
  16.    ShortStr = STRING[30]   (* Short string *);
  17.  
  18.    KeyStr   = STRING[65]   (* Function key string *);
  19.  
  20.    FileStr  = STRING[65]   (* File name string *);
  21.  
  22.    Text_File = TEXT;
  23.  
  24.